home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Palette.amos / Palette.amosSourceCode
AMOS Source Code  |  1980-01-10  |  473b  |  28 lines

  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8. 'Date: 05.1997 
  9. '
  10. '
  11. '
  12. 'Only for Accesory 
  13. _PALETTE
  14. Procedure _PALETTE
  15.    'By Delta/Opium
  16.    Set Accessory : Rem Set for Accesory 
  17.    ADAT=Leek(Dreg(3)) : Rem 1st adress 
  18.    Doke ADAT+28,$0
  19.    Doke ADAT+30,$0
  20.    Doke ADAT+32,$222
  21.    Doke ADAT+34,$FFF
  22.    Doke ADAT+36,$555
  23.    Doke ADAT+38,$CCC
  24.    Doke ADAT+40,$888
  25.    Doke ADAT+42,$FFF
  26.    
  27.    Call Editor 182,100,"Delta"
  28. End Proc